function nok(a,b:int64):int64;
begin
result:=(a*b) div gcd(a,b);
end;